ALV-Grid mit Logo

Ein im BDS gespeichertes Bild können Sie im Header eines ALV-Grid anzeigen lassen. Das hier vorgestellte Programm macht dies.


ALV-Grid mit Logo

Coding

*&———————————————————————*
*& Anzeige ALV-Grid mit Logo
*&———————————————————————*
REPORT  z_alv_logo.

TYPE-POOLS: slis.

*** Variablen
DATA:
  gt_t005t              TYPE STANDARD TABLE OF t005t.

START-OF-SELECTION.

*** Beispieldaten lesen
  SELECT * FROM t005t INTO TABLE gt_t005t WHERE landx LIKE ‘D%’.

*** ALV-Grid anzeigen
  CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY’
    EXPORTING
      i_callback_program     = sy-cprog
      i_callback_top_of_page = ‘CALLBACK_TOP_OF_PAGE’
      i_structure_name       = ‘T005T’
    TABLES
      t_outtab               = gt_t005t
    EXCEPTIONS
      program_error          = 1
      OTHERS                 = 2.

*&———————————————————————*
*&      Form  callback_top_of_page
*&———————————————————————*

FORM callback_top_of_page.

*** Datendeklaration für den Listenkopf
  DATA lt_listheader TYPE slis_t_listheader.
  DATA ls_listheader TYPE slis_listheader.

*** Überschrift
  CLEAR ls_listheader.
  ls_listheader-typ = ‘H’.
  ls_listheader-key = ‘wird nicht angezeigt’.
  ls_listheader-info = ‘Information’.
  APPEND ls_listheader TO lt_listheader.
*** Zusätzliche Information
  CLEAR ls_listheader.
  ls_listheader-typ = ‘S’.
  ls_listheader-key = ‘Quelle’.
  ls_listheader-info = ‘www.Tricktresor.de’.
  APPEND ls_listheader TO lt_listheader.
*** Zusätzliche Information
  CLEAR ls_listheader.
  ls_listheader-typ = ‘A’.
  ls_listheader-key = ‘Wird nicht angezeigt’.
  ls_listheader-info = ‘Bitte alle Informationen vertraulich behandeln!’.
  APPEND ls_listheader TO lt_listheader.

*** Listenkopf setzen
  CALL FUNCTION ‘REUSE_ALV_COMMENTARY_WRITE’
    EXPORTING
      it_list_commentary = lt_listheader
      i_logo             = ‘ENJOYSAP_LOGO’.

ENDFORM.                    “top

Enno Wulff

Leave a Comment